home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / ScreenSavers / BackSpaceViews / SchoolView.BackModule / School.psw < prev    next >
Text File  |  1995-06-12  |  5KB  |  199 lines
  1. defineps PSWDavesDefFont(char *fontname)
  2.     15 dict dup begin
  3.     /FontName /fontname def
  4.     /FontType 3 def
  5.     /FontMatrix [0.001 0 0 0.001 0 0] def
  6.     /FontBBox [-500 -500 500 500] def
  7.     /Encoding 256 array def
  8.       0 1 255 {Encoding exch /.notdef put} for
  9.  
  10.     Encoding
  11.         dup (A) 0 get /Blank put
  12.         dup (u) 0 get /up put
  13.         dup (1) 0 get /upLeft put
  14.         dup (l) 0 get /left put
  15.         dup (2) 0 get /downLeft put
  16.         dup (d) 0 get /down put
  17.         dup (3) 0 get /downRight put
  18.         dup    (r) 0 get /right put
  19.             (4) 0 get /upRight put
  20.  
  21.     /CharProcs 6 dict def
  22.     CharProcs begin
  23.         /.notdef {} bind def
  24.  
  25.         /Blank {
  26.              0 setgray
  27.              -500 -500 1000 1000 rectfill
  28.         } bind def
  29.  
  30.         /up    {
  31.             0 -480 moveto
  32.             -100 -100 -100 200 -30 370 curveto
  33.             -300 250 -200 420 0 480 curveto
  34.             200 420 300 250 30 370 curveto
  35.             100 200 100 -100 0 -480 curveto
  36.  
  37.             0 -300 moveto
  38.             20 -20 20 40 0 300 curveto
  39.             -20 40 -20 -20 0 -300 curveto
  40.  
  41.             -170 350 moveto
  42.             -170 350 20 0 300 arc
  43.             170 350 moveto
  44.             170 350 20 240 180 arc
  45.             fill
  46.         } bind def
  47.  
  48.         /upLeft    {
  49.             339.36 -339.36 moveto
  50.             0 -141.4 -212.1 70.7 -282.8 240.38 curveto
  51.             -388.85 -35.35 -438.34 155.54 -339.36 339.36 curveto
  52.             -155.54 438.34 35.35 388.85 -240.38 282.8 curveto
  53.             -70.7 212.1 141.4 0 339.36 -339.36 curveto
  54.  
  55.             212.1 -212.1 moveto
  56.             28.28 0 -14.14 42.42 -212.1 212.1 curveto
  57.             -42.42 14.14 0 -28.28 212.1 -212.1 curveto
  58.  
  59.             -367.64 127.26 moveto
  60.             -367.64 127.26 20 0 300 arc
  61.             -127.26 367.64 moveto
  62.             -127.26 367.64 20 240 180 arc
  63.             fill
  64.         } bind def
  65.  
  66.         /left    {
  67.             480 0 moveto
  68.             100 -100 -200 -100 -370 -30 curveto
  69.             -250 -300 -420 -200 -480 0 curveto
  70.             -420 200 -250 300 -370 30 curveto
  71.             -200 100 100 100 480 0 curveto
  72.  
  73.             300 0 moveto
  74.             20 20 -40 20 -300 0 curveto
  75.             -40 -20 20 -20 300 0 curveto
  76.  
  77.             -350 -170 moveto
  78.             -350 -170 20 0 300 arc
  79.             -350 170 moveto
  80.             -350 170 20 240 180 arc
  81.             fill
  82.         } bind def
  83.  
  84.         /downLeft    {
  85.             339.36 339.36 moveto
  86.             141.4 0 -70.7 -212.1 -240.38 -282.8 curveto
  87.             35.35 -388.85 -155.54 -438.34 -339.36 -339.36 curveto
  88.             -438.34 -155.54 -388.85 35.35 -282.8 -240.38 curveto
  89.             -212.1 -70.7 0 141.4 339.36 339.36 curveto
  90.  
  91.             212.1 212.1 moveto
  92.             0 28.28 -42.42 -14.14 -212.1 -212.1 curveto
  93.             -14.14 -42.42 28.28 0 212.1 212.1 curveto
  94.  
  95.             -127.26 -367.64 moveto
  96.             -127.26 -367.64 20 0 300 arc
  97.             -367.64 -127.26 moveto
  98.             -367.64 -127.26 20 240 180 arc
  99.             fill
  100.         } bind def
  101.  
  102.  
  103.         /down    {
  104.             0 480 moveto
  105.             100 100 100 -200 30 -370 curveto
  106.             300 -250 200 -420 0 -480 curveto
  107.             -200 -420 -300 -250 -30 -370 curveto
  108.             -100 -200 -100 100 0 480 curveto
  109.  
  110.             0 300 moveto
  111.             -20 20 -20 -40 0 -300 curveto
  112.             20 -40 20 20 0 300 curveto
  113.  
  114.             170 -350 moveto
  115.             170 -350 20 0 300 arc
  116.             -170 -350 moveto
  117.             -170 -350 20 240 180 arc
  118.             fill
  119.         } bind def
  120.  
  121.         /downRight    {
  122.             -339.36 339.36 moveto
  123.             0 141.4 212.1 -70.7 282.8 -240.38 curveto
  124.             388.85 35.35 438.34 -155.54 339.36 -339.36 curveto
  125.             155.54 -438.34 -35.35 -388.85 240.38 -282.8 curveto
  126.             70.7 -212.1 -141.4 0 -339.36 339.36 curveto
  127.  
  128.             -212.1 212.1 moveto
  129.             -28.28 0 14.14 -42.42 212.1 -212.1 curveto
  130.             42.42 -14.14 0 28.28 -212.1 212.1 curveto
  131.  
  132.             367.64 -127.26 moveto
  133.             367.64 -127.26 20 0 300 arc
  134.             127.26 -367.64 moveto
  135.             127.26 -367.64 20 240 180 arc
  136.             fill
  137.         } bind def
  138.  
  139.         /right    {
  140.             -480 0 moveto
  141.             -100 100 200 100 370 30 curveto
  142.             250 300 420 200 480 0 curveto
  143.             420 -200 250 -300 370 -30 curveto
  144.             200 -100 -100 -100 -480 0 curveto
  145.  
  146.             -300 0 moveto
  147.             -20 -20 40 -20 300 0 curveto
  148.             40 20 -20 20 -300 0 curveto
  149.  
  150.             350 170 moveto
  151.             350 170 20 0 300 arc
  152.             350 -170 moveto
  153.             350 -170 20 240 180 arc
  154.             fill
  155.         } bind def    
  156.  
  157.         /upRight    {
  158.             -339.36 -339.36 moveto
  159.             -141.4 0 70.7 212.1 240.38 282.8 curveto
  160.             -35.35 388.85 155.54 438.34 339.36 339.36 curveto
  161.             438.34 155.54 388.85 -35.35 282.8 240.38 curveto
  162.             212.1 70.7 0 -141.4 -339.36 -339.36 curveto
  163.  
  164.             -212.1 -212.1 moveto
  165.             0 -28.28 42.42 14.14 212.1 212.1 curveto
  166.             14.14 42.42 -28.28 0 -212.1 -212.1 curveto
  167.  
  168.             127.26 367.64 moveto
  169.             127.26 367.64 20 0 300 arc
  170.             367.64 127.26 moveto
  171.             367.64 127.26 20 240 180 arc
  172.             fill
  173.         } bind def
  174.  
  175.         end
  176.  
  177.         /BuildGlyph
  178.         {
  179.             500 0 -500 -500 500 500 setcachedevice
  180.             true setstrokeadjust
  181.             exch /CharProcs get exch
  182.                 2 copy known not {pop /.notdef } if
  183.                 get exec
  184.         }  bind def
  185.  
  186.         /BuildChar
  187.         {
  188.             1 index /Encoding get exch get
  189.             1 index /BuildGlyph get exec
  190.         }  bind def
  191.     end
  192.     /fontname exch definefont pop
  193. endps
  194.  
  195. defineps PSWDavesXYShow(float X, Y; char *string; float numstring XYCoords[j]; int j)
  196.     X Y moveto (string) XYCoords xyshow
  197. endps
  198.  
  199.